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MODULE SMGSSPUT_TEXT_TO_BUFFER ( ZTITLE ‘Put text to disp.ay buffer’ 
JDENT = aeoaS: : Fite: SMGPUS TEX BS2 Edit: PLL1013 
= 


BEGIN 


ARSE ASISII ISITE IIIT IT ITI TIT ii Titi t iris i tii titiitiriiiitiriitity 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
it DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


® 

& 

® 

® 

4 ® 
is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *« 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ® 

ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER ® 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
i HER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY © 
ie TRANSFERRED. * 
= 

ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE + 
is AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
ie CORPORATION. * 
® 

t 

cm 

te 

® 

® 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


REESE SISL ISIS IIIT ITI TTT TTP P erect ici ii rit ict titi tii tit iti ii iitiitity 
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FACILITY: Screen Management 
ABSTRACT: 


This is an internal routine used by screen management procedures to 
place user's text into a display buffer. The text is spanned for 
special characters. 


ENVIRONMENT: User mode - AST reentrant 
AUTHOR: P. Levesque, CREATION DATE: 14-Apr-1983 
MODIFIED BY: 


1-001 = Original. PLL 14-Apr-1983 
- = Finish coding. PLL 20-Apr-1983 

- Add error message, character set buffer al logation. PLL 4-May-1983 
1-004 = Fix second nett # the se tapes to agree with actions for 
» PLL S-May-1983 
ne and we have found a Li 

- If a bel charact ris found. call SMGSRING_BELL instead of setting 

-Fay- 
tf is found, scroll accor ing to the new dcb top & bottom of 
scrol ing region fields. PLL 26- ay-198 

1-008 - If an ESC is detected, call the terminal simulator routine to 
prregeret Fog sequence and perform the correct SMG$ function. 

-JuUL> 


0-74 
§smcpurtex.832; 1 


ne feed, scroll. PLL 11-May-1983 
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Put text to display buffer 
Declarations 


SBTTL ‘Declarations’ 
SWITCHES: 


ii 


Se danctOOs 22:05:32 


SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 


! 

LINKAGES: 
NONE 
TABLE OF CONTENTS: 


FORWARD ROUTINE 
SMGS$PUT_TEXT_TO_BUFFER; 


INCLUDE FILES: 
REQUIRE ‘RTLIN:SMGPROLOG'; 


MACROS: 
NONE 
! EQUATED SYMBOLS: 
NONE 
FIELDS: 
NONE 
PSECTS: 


EXTERNAL REFERENCES: 


EXTERNAL ROUTINE 
SMGS$SIM_TERM 
SMGS$S$SCROLL_ AREA, 
SMGSRING_BELL; 


EXTERNAL LITERAL 
SMGS$_FATERRLIB, 
SMG$_STRTERESC; 
! Some constants needed by reference. 


ALLONES : BYTE INITIAL (=1); 


! defines Psects, macros, data base 


AX-11 Bliss-3 
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1! The fol quing macro is used to move a coneret character into the 
! text buffer in such a way that output will Later convert to the 
! appropriate device dependent graphic character. 


SINSERT_CTRL_CHAR (CHAR) = 

BEGIN 

LOCAL 

INDEX, 
NING_COLS; 

I 


x 
REMAI 

REMAINING COLS = DCB [DCB,W NO COLS] = .DCB (OCB W CURSOR ROW); 

INDEX = SSMGSLINEAR (.DCB COCB_O_CURSOR_ROW], .HCB CDCB_w_CURSOR_COLJ); 


iF 1 GTR .REMAINING_COLS 
WORK_OVERFLOW = .BYTES_REMAINING 
“BEGIN ! move the low nibble into the high nibble 
SHIFT MigeLe : BYTE, 
SHIFT NIBBLE = (CHAR <0,4>) * 4; 
CHSMOVE (1, SHIFT _NIBBLE, TEXT BUF C. INDEX); 


WORK_ATTR = ATTR_A_USER GRAPHIC OR .ATTR CODE; 
CHSMOVE (1, WORKIATTR, ATTR_BUF C.INDEXI); 


ee es = 6 2 — 4) os ss 
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a et at oe oo = SS os 


5 0 

5 0 DCB CDCB_W_CURSOR_COL] = ,0CB COCB_W_CURSOR COL) + 1; 
3 8 IF .DCB TotB_w_CURSOR_ COL} EQ. .OCB COCB_w_NO_COLS) 
5 8 DCB CDOCB_W_CURSOR_COL] = .DCB COCB_W_NO_COLS); 

5 ND; 

6 0 

6 0 '<BLF /PAGE> 
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The table below (CHAR_TABLE) is used with a SCANC instruction to 
cotoct characters that have an impact on how text needs to be 
positioned in 2 text buffer that models what is on a portion of the 
screen. Each character poet tion is occupied by a code indicating 

e 


modified, but a note must be made that the 
bell needs to be sounded. 


3 Character can be discarded, but cursor must be 
backed up one column. Be careful about cursor 
already be 


64 
65 
89 
68 the kind of action that this character has on text Placement. 
4 Characters sre grouped into 1§ categories based on their impact on 
0 the terminal and hence on their impact on what should be placed in 
f the buffer at what position. 
78 0 These categories (codes) are: 
a 8 Action Code Action 
77 0 0 Normal processing. Character occupies next 
78 0 available slot in buffer. Cursor column is 
6 advanced by 1 after placement. 
gt 1 Character can be discarded. Cursor is not 
Hf 8 advanced. 
ae 8 2 Character can be discarded. Cursor is not 
86 0 
87 8 
88 
0 


oo 
~o 


ing in column }. 
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Character can be discarded, but cursor must be 
advanced to next TAB Step and intervening 
character positions in the buffer are 
undisturbed. 


WOO. 


RIPPIN IPINIPSPIDIPIPININIPINYINPIPIPONY 
Pa tte tet te tee EO PN 
Sas2 DWOONOA NEW O ODNOULS WN Oo 


TAS stops are assumed to be set in the following 
columns yith column pemperie starting at 1: 
9, 17, 25, 33, 41, 49, » 65, 73 ( width=80) 


9, 17, 25,33, 41, 49, 57, 65, 73, 81, 89, 97, 
165, ne 134 129 ( wiaehe433) 


5 Character can be discarded. Cursor must be 
advanced by one Line. 


POTOPOPITURIPINIPONPONIPUND: 


6 Character can be discarded. Cursor must be 
sevanced by one Line. (VT treated the same 
as 45, " 


SELESLANLSSSLESLATLS 


7 Character can be discarded. Effect is 
to clear the byt fer and reset the cursor to 
Line 1 column 1. 


8 Character can be discarded. Effect is to set 
curso. to column 1 of current Line. 


3 Character can be discarded. For this version, 
ESC terminates the string. Eventually, subsequent 


cc a cc ce ec ee ae ee ea ce ee me ce ce ce ce ee ee ee ee ee ee ee ed ee ee eed 
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Character can be discarded. 
treated as a no-op. It is broken out separately 
we ever need to do something special 
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Hex Character Codes 
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on setting. 
sone prepiens with this are: 


- What to do about sequences that we don't 


recogn 
> 9 


recognize as ones that can cause 
confusion later is allowed to b 
sent to terminal -- E.g. select 
rendition, etc ? 


in case 
h it 


ze 
What to do about sequences that we 


Character is 


ASCII Character Action Code 


0 to Sl 

DLE to SUB 
ESC 

FS to US 

SP to 

DEL 

control chars 
reserved 


prine one chars 
reserve 


— 
So OO O ODIO Ewin 


Page 


i § V4.0-742 
SMGRTL .BUGSRC JSMGPUTTEX.832;1 


AX-11 Bliss-3 


? 
0 


=1984 §3:9833 


13 
bJan 
“Oct 


Declarations 


Srgeerut vent Put text to display buffer 


w 
v 
~~ o-, 
oa =~ 
~ a~— 
Suusuuuuue 6 Juuuuuuuu 
@ooooo0oo0o0o0 eocococcocsd 
- jpaiteiiaiaieiiasinies *~ ‘yalieriniiiedinintnd 
— ~" 
Soooocoeovr cGooooooo 
Pow mm mmr memes BS im am wm ew ees 
a 
— © e® © & © & & Gevyeawy © © & 8S 8 & SF 
— OA—-DO00SO0 A 4-—-- COSOS00O 
-—c -ac 
~nwoOoOeeeese sees OoOeeeseeeees 


wate 7 


oo>-- o-- ee 
~w 2=es es 8s 888s &F &Sse ees ss on 
~~ Ah - OOOOCSOS 4-— - COCCCOo- 
-S - 3S 
Bees eesees Freese seeveaves 
- DSOOCOSOSSS —-COCOCOO 
“wy Sena 
—@w 2+ 22s 2 8s © 8s eM se es see eseees 
SSO SG SSeesee 
w~wHe& © 25s 8 8 8 8 8 8H see eseses 


¥ Ovw-OOOCOCCSCO C O—-- COOCCOO 
mae ue 


w esse @eeees ese esse ees 


— --- -DOSSSO----——- GDOOS0O 


> 
@ ee se eees 
N-—-OOOOSooO 
- 
Oo ese se eees 
wo -—-—-OOo°o°ocoo 
~N 
ra) ee seeeee 
—-COCCOCO 
a 
oO eee @eeees 
— ——-SO00C0O 
vu 
a ee @ ee 8 & & & 
> —-—-OOOCoooO 
- ese ese se ese 
—-—SOSC0SCS0O 
bh 
—_ ese esse ee ee 
2 —--SOOCC0O 
Bee ese s®e@eees 
ar -—-OOOCCSCO 
ion 
y=r 
a. 
=) 
oO 


ses © @&® &© & 8 & 


—--OOOCOOooO 


ses 8@ 8 8&8 & &© @ 


—--OOOCOoooO 


-—-SoOoOo°ooOoO 


-—-SOOOCCooO 


ese 8s @e® 8 8&8 8&8 & 


--OOO°CooO 


—-—-OOOoOC°ooO 


--OOCOooOoO 


--OOCCOCoO 


! <BLF /PAGE> 


ELL OO OO 


SEBSSCKLE NLR OL SENSES SSSSOn 
MucucucucucucucucucucucucuCcuCcuCuCuCuCuCuCuCunuCuC 


FP SHS HS HS HS HS HS HS HS HS HS HS OSHS HS HS SHS HS SS HS HS SS se rerese 


uh Ad 


MGSSPUT_TEXT.T Put ¢ 
-01 SMGSS 


G$ 
93 7 
3 71 
98 i 
99 7? 
00 74 
ORR 
aan 
05 18 
06 0380 
Oe 
09 8 5 
10 4 
a 
313 O38? 
16 0388 
315 Tet 
16 0390 
, OR 
19 0398 
0 0394 
; 0395 
; ae 
3 OR 
26 00 
? 4 
9 0 
3 
i 


her ay = 


wn Ooo 


RRRRRLERRLKERLEKLLLLREL RAGA 


ROR oo es 


o 
Wer SOO NO MPN ODS 


splay buffer 
TO_BUFFER = Put text to buffer 


m 13 


d-pct=1986 18:58:20 ESmantucauesac 


ROUTINE S$ 


'e¢ 


ABs reposi 


CALLING SEQUENCE: 


FORMAL PARAMETERS: 
DCB.mab.r 


ATTR_CODE.rb.v 
TEXT_LEN. erly 


TEXT_ADDR.rl.v 
CHAR_SET.rl.v 


ee EE EE EEE EEE EEE EEE meme memento 


oth tr ed TO BUFFER = Put text to buffer’ 


: REF BLOCK C,BYTE), 
DE : BYTE, 

N 

D 

T 


| FUNCTIONAL DESCRIPTION: 


This procedure places a text string into a buffer 
current row and column in the buffer where output is 
The input text string is scanned for special characters 
Fcehsore simely moving the text into the 


iven the 
to go. 
hat 


uffer. For example, 


on the maintained cursor position and the text 
must be deposited at the gopropr ate 
function of current posit 


ab boundaries as a 
on in the Line. Escape sequences 


are not handled; an escape character is treated as a terminator, 
and a qualified success stetus will be returned to indicate 
that truncation occurred. 


Positions in BUFFER that are modified have the corresponding 
positions in ATTR_BUFFER and CHAR_BUFFER set. 


ret_status.wic.v = SMGSSPUT_TEXT_TO_BUFFER ( 


-mat.f, 
ATIR_CODE.rb.v, 
TEXT“L 
TEXT_ADDR. rl 

WAR_SET.rl.v 
OVERFLOW. wi.r)) 


Address of virtual display control block. 
Various fields from within in this block 
are interrogated and/or updated. 


Video rendition attribute code. 
Bit 6 Bold 

Bit peverse video 

Bit § Blinking 

Bit Underscored 


Length of text string 
Address of text string 
Character set to us 


e. 
SMG$C_UNI TED. KINGDOM 
SMGSC"ASCII 


ites sad 
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3n3i ; GSSPUT_TEXT.10_BUFFER - Put text to buffer B-Jan-1985 4 8: 5: Hf vtet ec wert 832;1 . (5) 

; 0 424 1! Sncsc SPEC Snarnscs 

; 1 Be 425 1! moc A Aicen 

i 336 Ones 1 | SAGE TALT GRAPHICS 

: 354 4 : 1 i OVERFLOW.wl.r Optional. Address of Longword in which 

s 355 4, 1! o return the number of characters that 

: 23 " ? : did not fit on the Line. 

: 358 432 1 ' IMPLICIT INPUTS: 

; 359 4 1! 

3 60 434 1! NONE 

; 361 4355 1! 

3 6¢ 4 8 1! IMPLICIT OUTPUTS: 

; 4 » § 

: 64 4 . NONE 

: 365 4 § 1! 

3 06 Re? QO 1 ! COMPLETION STATUS: 

3 6 441 1! 

3 $5 me ! SS$_NORMAL Normal successful completion 

: 370 rie 1 | SIDE EFFECTS: 

; 71 445 1! 

3 Le 44 1! NONE 

; 7 0447 1 !<= 

3 74 0448 1 

3 75 0449 BEGIN 

3 76 0450 

.. ore 0451 BUILTIN 

; 378 be 28 SCANC 

; 379 045 NULLPARAME TER; 

: 380 te 

; 81 455 LOCAL 

3 5¢ 3038 TEXT_BUF : REF VECTOR C,BYTE), |! Addr of text buffer 

3 Hs 045 ATTR_BUF : REF VECTOR C,BYTEJ, ! Addr of attr buffer 

3 84 $28 CHAR_BUF REF VECTOR eevic » |! Addr of char set buffer 

3 HH 45 Ss, ' status of subrout ine calls 

; 386 460 WORK OVERFLOW : INITIAL. (0), ! no. of overflow chars 

: eH peo! ByYTes REMAINING, | No. of bytes in input string yet to be 

: 389 aces IN_POINTER; ee pointer into input string 

: 391 0465 LITERAL 

3 4 rr K_OVERFLOW_ARG = 6; 

: 394 46 TEXT_BUF = .DCB DCB_A. TEXT Burd; 

; 395 4 ATTR-BUF = .DCB COCB-A-ATIR~BUF J; 

; 96 470 CHARBUF = .DCB CDCB"A-CHARSET_BUF); 

: 398 47 BYTES REMAINING = .TEXT_LEN; 

: 130 tS IN, POINTER = .TEXT ADDR? 

> 401 475 WHILE .BYTES_REMAINING NEQ 0 

; $06 47 dO 

3 or of BEGIN ! Overall loop 

: 405 47 CHARS_TO_MOVE, ! No. of characters to move on chis 

; 406 480 i iteration 


SMGSSPUT_TEXT_T Put text to ¢\ splay buffer ar Jan=1985 $$: 93: 3 AX-11 et 
1-015 SMGSSPUT_TEXT_TO_BUFFER = Put text to buffer “0c t-1984 0 SMGRTL .BUGSRC shePOT TEX. B32;1 
; 407 481 PLACE_TO_MOVE ' Place to move from gn this iteration 
: 408 4 ; NEW_BYTES_REMAINING, | No. of bytes remaining as returned 

; 409 4 ' by SCANC 

; 410 484 ADDR_DIFF; ' Addr of char in input stream whose 

3; $11 485 ! index into scanc table yields 

3 tig re 8 a ' non-zero code. 

; 6416 488 i See if any of the remaining input characters require special 

>; 415 0489 ' _treatment. 

; $19 0490 

3 (41 491 SCANC ( BYTES_REMAINING, ! No. of bytes remaining 

; 418 49 .IN_POINTER, ' Current pointer to source 

; 419 49 CHAR_TABLE, ' Address of SEAN ¢ able 

: 420 494 ALLONES; ' Mask for ANDin 

; 421 495 NEW_BYTES_REMAINING, ! New remaining. no. of bytes 

; 4 ¢ 49 ' inc Luding the byte which 

s 6 049 ' caused the instruction to 

: 626 0498 ' halt. $s zero onty if all 

: 425 0499 ! byces q d not satity search. 

: 426 0500 ADDR_DIFF); ! Addr of char in input stream 

; 427 0501 ! - 8 index into scanc table 

3 $38 B206 ! yields non-zero code. 

3 2% 0504 CHARS_ 19 -fove = .BYTES RERAINING - NEW _BYTES_REMAINING; 

3; «431 0505 PLACE-TO-MOVE = .IN_POIN TER: 

; ose 0506 IN_P POINTER = .IN_POINTER + .CHARS_TO MOVE; 

; 43 0507 BYTES “REMAINING 2 NEW BYTES REMAINING; 

3; 434 0508 

3; 435 0509 ; ‘+ 

; 436 0510 ! Copy the appropriate number of characters into the text buffer 
; 637 0511 ! and the appropriate number of copies of the attribute code 

: $218 ' into the attribute buffer. 

: 0514 3 iF .CHARS_TO_MOVE NEQ 0 2 

3 0515 THEN 

3 0516 4 BEGIN 

3 0517 & LOCAL 

3 0518 4 INDEX, ! O=-based index into BUFFER and ATTR_BUFFER. 

: ahs ? REMAINING. COLS; 

; B3 i : INDEX = SSMGSLINEAR ( .DCB COCB_W_CURSOR_ROW], .DCB COCB_W_CURSOR_COLJ); 
; 05 4 REMAINING_COLS = .DCB CDCB_W_NO (a3i° -DCB COCB_W_CURSOR_COL] + 1; 
; 82 4 4 IF_ .CHARS_TO_MOVE GTR .REMAIRNING_C 

3 525 4 THEN ~? chars will overflow Line 
: 05 $ BEGIN 

3 B2 WORK_OVERFLOW = .BYTES REMAINING + 

3 528 -CHARS TO_MOVE - .REMAINING_COLS); 

3 0599 5 CHARS_TO_MOVE = .REMAINING-COLS; 

: B2 C 4 END; 

3 531 4 

; 532 4 '¢ 

: ; ? ? ! ; Move text into buffer. 

3 535 4 insmove (.CHARS_TO Rove « ' No. of chars 

; 5 § 4 LACE- TO- MOVE ' From 

: 537 4 iex1 _BO0F C .INDEX ) ); i To 
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xf TB SUPERS Put text to buffer fan 198 #8 3: Hf YONGRTL BUeERe ISMCPOT ER. B32; 1 


14 
i Rewrite attribute bytes. Normally the attributes 4 
i passed to us, but for the putebended” case where esc 


i Sequences are used, we should look at the default attributes 
‘. which may have been altered by ones SIM_TERM. 
BEGIN 


TTR: 
WORK IR = .ATT 
bce CDCB_V TALLOW nits 


ATTR = .0CB COCB_B_DEF -VIDEO_ ATTRI; 


CHSFICL KY WORK ATTR, ' “Ghar. to replicate 
ARS_TO_MOVE ' No. of times 
“es ATT WR Ra0r C .INDEX ) ); i Destination 


14 
5 Write the character set bytes, if necessary. 


iF - CHAR _BUF EQL 0 AND 
R-SET NEQ SMGSC_ASCII 


0; ! first char set - alloc buffer 
IF .CHAR_BUF NEQ 0 
THEN 
CHSFILL (.CHAR_SET, 
° TO_MOVE 
CHAR_BOF C.INDEX]); 
14 
‘. Adjust resulting cursor position. Check for overflow. 


DCB CDCB_W_CURSOR_COL? = 7 COCB_W_CURSOR_COL] + 
4 gos CDCB_W_CURSOR_COL} GTR tate W_NO_COLSJ 
DCB COCB_W_CURSOR_COL] = .DCB CDCB_W_NO_COLS); 
if -WORK_OVERFLOW NEQ 0 
heen 
IF .NEW_BYTES_REMAINING EQL 0 
EXITLOOP; ! Break out of loop -- we're done 
i * Dispatch on the non-zero code located to see what special 
i. action is needed. 
CASE .CHAR_TABLE [.(.ADDR_DIFF) <0,8>] FROM 1 TO 10 OF 


SPGSEPUT TERT .T Put t 
1-0 MGS$ 
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ER = Put text to buffer “0c t-1984 SMGRTL.BUGSR 
1): 

Hex Character Codes ASCII Character 

98 to 06 NUL to ACK 

10 to 1A DLE to SUB 

1C to 1F FS to US 


Character can be discarded. Cursor is not advanced. 


Special case if the user_graphic bit is set, That indicates 

a device-independent codé which should be placed in the buffer 

for later interpretation by Output. Notice that we are guaranteed 
sees Fi rae contains only 1 character since only we call this 
routine. 


if (,ATTR_CODE AND ATTR_M_USER_GRAPHIC) NEQ 0 
‘SINSERT_CTRL_CHAR (.TEXT_ADDR); 

(2): 

4 

} Hex Character Codes ASCII Character 


07 BEL 

Character can be discarded. Cursor is not modified, and we 
i 

i 


ee ee ee ee ee ee 


call a routine to ring the beil now. (Note that if we had 
stored the bell in the attribute buffer, the bell would've 
been rung every time the screen was repainted.) 


SMGSRING_BELL (DCB COCB_L_DID]); 

(3): 

'¢ 

! Hex Character Coues ASCII Cnararcer 


Character car be discarded, but cursor must be backed up 
one colyan. Be careful about cursor already being in 
coluan 1, 


IN 
OP .DCB_W_CURSOR_COL] NEQ 1 
DCB CDCB_W_CURSOR_COL] = .DCB CDCB_W_CURSOR_COL] -1; 


ee 0 we we ee ee we 
zn se 
a 


Hex Character Codes ASCII Character 


i 09 HT 


oOr:sfg 


elalisisisisioiale 


z2oruvcuru 


14 
SMGSSPUT_TEXT_T Put text to display buffer Sadan 5 22:03:37 AX-11 Bliss-32 V4.0-742 Page 13 
wt * SRGSSPUT_TEXT. 10. BUFFER - Put text to buffer ra 95:93:36 ONGRTL BUGERCTSMGPOTSEd.B3251 . (5) 
7 $ § ! Character can be discarded, but cursor must be advanced to 
7 i next TAB stop and intervening character positions in the 
? ? 2 } buffer must be left undisturbed. 
58 6 ' TAB sto re assumed to be set_in the following columns: 
388 637 19, 17, 05, 38, 41, £5, 87 eget yg” the fol bowing 
28? 0859 '§, 17 35, 33, 41,49, 57, 65, 73, 81, 89, 97, 105, 113, 
86 660 i 181, 129 € width=132) 
2 0661 le 
ss Ose BEGIN 
256 664 ! Be careful about ++ oat i off the end of the Line or beyond 
23) oer } the end of the virtual display Line. 
298 066 IF NOT .DCB CDCB_V_DISPLAY_CONTROLS] 
594 0668 THEN 
595 0669 BEGIN 
596 0670 DCB CDCB_W_CURSOR_COL) = 
597 0671 (T.0CB COCB_W_CURSOR_COLJ-1)/8+1) #841; 
ae6 6 IF_ .DCB CDCB_W_CURSOR_COL] GTR .DCB [DCB_W_NO_COLS) 
600 0674 DCB COCB_W_CURSOR_COL] = .DCB CDCB_W_NO_COLS]; 
601 0675 D 
O06 0676 ELSE 
60 0677 SINSERT_CTRL_CHAR (TAB); 
604 ND; 
605 
606 ret] (5,6): 
607 681 '¢ 
one } Hex Character Codes ASCII Character 


Pe Se Se Se Se Be Se Be Se Ge Be Se Se Se Se Se Se Se Se Ge Se TH Se Se Ge Ge SH Se Se Se G+ Se Se Se Se Se Se Se SESH Se Se Se Se SHES Se Sees Se eeee Se esesese 
oo 
On 
~~ 
co 
PVIVID. PUPP IVIVSVSIN B® BS BS BE EHNA AANA BAIT BB BB BE WWIII 


0 ! 
610 06 ! A LF 
et; 0685 oh VT 
gig $ i Character can be discarded. Cursor must be advanced by 
oie 0689 } one line. Don't advance beyond Last Line of display. 
ns sm 
618 0692 i If cursor nut at bottom, advance DCB [DCB_W_CURSOR_ROW] 
pa 7 by one. 
621 95 IF NOT .DCB CDCB_V_DISPLAY_CONTROLS) 
6 § 38 THEN 
6 9 BEGIN 
4 3 4 4 -DCB CDOCB_W_CURSOR_ROW] + 1 LEQ .DCB CDCB_W_BOTTOM_OF _SCRREG] 
° $ 701 ELS DCB CDCB_W_CURSOR_ROW] = .DCB COCB_W_CURSOR_ROW) + 1 
628 7 § SMGSSSCROLL_AREA (.D0CB 
629 7 OCB DCB _u_10P_oF SCRREG), 
6 704 -O0CB COCB-W"°COL START), 
631 705 (.0C8 DCB_Q_BOTTOM_OF SCRREG) - 
6 ; 7 -0CB_COCB-W"TOP_OF SCRREG) + 1), 
6 7 Bee COCB_G_RO_COLST, 
6 708 SMGSM_UP, 


F 14 


i Character can be discarded. Effect is to set cursor to 
' column 1 of current Line. 


' 
‘ 
! 
' 
i 
BEGIN 
IF NOT .DCB CDCB_V_DISPLAY, CONTROLS] 
DCB CDCB_W_CURSOR_COL) = 1 


up: SINSERTACTRL_CHAR (CR); 


SESSSEEEES 
AAA 


s 
-< 


MGSSPUT_TEXT_T Put text to display buffer -Jan-1985 22:03:37 AX-11 Bliss-32 V4.0- 
sngtt SRGSSPUT_TEXT. 10_BUFFER = Put text to buffer arts 1 93:93:36 SMGRTL BUaEReTsMcPOTyex.B32:1 ~— ay 
: 8 $8 END om 

: 6 5 711 4% ELSE 

: 638 £1 BEGIN 

fies: tA ay 

> 641 715 CHAR = .(.ADDR_DIFF)<0,8>; 

; bug 16 SINSERT_CTRL_CRAR (.CHAR): 

Bo Mig ew: 

: 645 orig . 

a i 

; 648 07 ; Hex Character Codes ASCII Character 

; 650 07 i sceccee ee LiL LlrlltsiCia SH SSO OHO SO eee eaceeaea 

> 651 0725 i - v 

; $36 07 § 1 Character can be discarded. Effect is to clear the buffer 
; $37 44 , : and reset the cursor to Line 1 column 1. 

: 655 0729 4 BEGIN 

: 656 07 6 4 IF NOT .DCB CDCB_V_DISPLAY_CONTROLS) 

: 658 07 BEGIN 

; 659 a73s LF gee CDCB_W_CURSOR_ROW] + 1 LEQ .DCB CDCB_W_BOTTOM_OF_SCRREG) 
; 661 0735 3 DCB CDCB_W_CURSOR_ROW] = .DCB CDCB_W_CURSOR_ROW] + 1 
: £e§ 0 § 5 SMGS$SCROLL_AREA (.DCB 

; 664 0738 5 OCB FDCB_u_r0P_oF SCRREG), 

: 665 0739 5 .0CB COCB"W~COL~STARTI, 

: 666 0740 6 (.0CB COCB_@_BOTTOM_OF SCRREG) - 

: 667 0741 5 .OCB COCB"W"TOP_OF ~“SCRREG) + 1), 

; 668 0 4g 5 .OCB COCB_@_NO_cOLST, 

; 669 0 43 3 SMGSM_UP, 

> 671 45 5 N ; 

: 67 46 4 ELSE’ ‘ 

; 673 0 4 4 i SINSERT_CTRL_CHAR (FF); 

; or i ras 

: $F 1 oe 

: 679 38 Hex Character Codes ASCII Character 

; 55 

: 2$ 

: $2 

3 0 4 

; 1 4 

3 § & 

3 4 

: 4 

; 3 
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Gi splay buffer 
XT_TO_BUFFER = Put text to buffer 
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$oJan-1905 22:05:37 yayelt Bliss: 


(9): 

T+ 

! Hex Character Codes ASCII Character 
18 ESC 
E $0 
F $I 


' 
' 
' 
! 
! Character can be discarded. Subsequent characters need 
: to be inspected to see if they constitute a recognized 
' escape sequence whose qtrect must be simulated-- E.g., 
cursor setting, rendition setting. 

' 

i] 

1 


i SMGSSSIM_TERM processes the escape sequence, then returns 
! here to allow any remaining characters to be processed. 


BEGIN 
IF NOT .DCB COCB_V_ALLOW_ESC) 
a (SMG$_STRTERESC) ! error from true SMG$ 
Parke ! autobended - attempt to interpret 
LEN OF SEQUENCE, 


ATU 

STATUS = SMGSSSIM_TERM (.0CB 
;BYTES_REMAINING, 

- IN_POINTER ! pass ptr to esc char 

LEN-OF SEQUENCE); 

IF NOT .STATUS THEN RETURN T.STATUS); 

14 

! Update the number of bytes processed. Since there is 

' an automatic update a 1 character) at the end of this 

} loop, don't count the ESC now. 


BYTES REMAINING = -BYTES_REMAINING = .LEN OF SEQUENCE + 1; 
he POINTER = .IN_POINTER’+ .LEN_OF _SEQUENTE = 1; 


ND; ! autobénded - attempt to interpret 
END; 
F303: 
Hex Character Codes ASCII Character 


; sooecen 4 ee eeceeeeceeee22e oe eULULULULULULUlmlmlmlmlmlmlmUmUmUmCCU SE SO SO STO SOO SO SOOO SSeCee 
i 
Character can be discarded. 


: ! no special action 
CINRANGE , OUTRANGE): 


i Should never 93° here -- there are no other codes in 
! CHAR_TABLE. 


we do, we've got a problem. 
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SRgSgPUT TERT Put tex 
1-01 SMGSS 


ni SHRINE BAERS Wall hata 


§ V4.0-74 
-0¢t-1984 SMGRTL .BUGSRC JSMGPUTTEX.832; 1 


-EXTRN SMGSRING BELL, SMGS_FATERRLIB 
EXTRN SMG$_STRTERESC 


-PSECT _SMGSCODE,NOWRT, SHR, PIC,2 


Gi splay buffer 
XT_TO_BUFFER = Put text to buffer 
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CHARS _TO Moye. a8 (SP) 
a8(SPT, 6(R9) 


OFFC 00000 .ENTRY SMG$ PUT TEXT 10 BUFFER, Save R2,R3,R4,R5,- 
R6,R7,RBRI,RTO,A1 
SE 20 ce 02 suBL2 #32, §P 
18 AE OD CLRL WORK OVERFLOW 
9 04 AC D 08 MOVL B,"R 
8 0 Ad D ¢ MOVL  16(R9), TEXT_BUF 
A 14 = A9 OD 1 MOVL 4 (RO). ATTR-BUF 
4 =A 18 Ad p 14 MOVL 4(R9). CHAR”BUF 
5 0c AC : 9019 MOVG TEXT_LEN, BYTES_REMAINING 
5? D 1D 18: TSTL BYTES_REMAINING 
03 12 O0O1F BNEG $ 
o2ce 31 0 4 BRW 41$ 
00000000" EF 00000000' EF 68 >? 2a 00024 2%: SCANC BYTES REMAINING, (INPOINTER), CHAR_TABLE, - 
10 AE 50 00 900 1 MOVL ROS igtse) 
OC A 51 D0 0035 MOVL. 1, 12(5P) 
56 5 10 AE C3 00039 SUBL3 NEW BYTES REMAINING, BYTES_REMAINING, - 
5 58 DO 0003E MOVL_ IN_POINTER, PLACE_TO_MOVE 
5 56 CO 00041 ADDL2 CHARS TO_MOVE, IN-POINTER 
5 10 AE RP D044 MOVL NEW BYTES REMAINING, BYTES_REMAINING 
56 D 48 TSTL HARS_TO_MOVE 
7¢ 13 OO04A BEQL 
50 28 Ad 3¢ 004¢ MOVZWL 40(R9), RO 
50 p 0 30 DECL 
51 06 Ad 3¢ 0005 MOVZWL 6(R9), RI 
50 51 C4 00 36 MULL2 
08 AE A Ad SE 6 5 aging), 8(SP) 
51 8 BE 3¢ 0005 MOVZWL a8(SP). R 
04 Ar FF A140 9E MOVAB 1 cv) ERO]. INDEX 
5 06 A MOVZWL 6(R9), R 
50 ft C SUBL2._ R1, R 
0 D F INCL REMAINING COLS 
50 & p 4] cHPL HARS_TO_AOVE, REMAINING_COLS 
51 56 6 a ° 76 SUBL 3 REMAINING _COLS, CHARS _TO_MOVE, R1 
18 AE 51 C1 OO07A ADDL3 BYTES REMAINING, R1, QORR OVERFLOW 
5 0 00 7F REMAINING COLS, CHARS_TO_AOVE 
04 BE4B é +t 4 82 3$: MOVC3 CHARS_TO ROVE, (PLACE-~TO-MOVE), @INDEX- 
s 08 AC 9A MOVZBL ATTR ODE WORK_ATTR 
04 34 «OA 05 €1 BBC #5, S2(r9S, 4$ 
50 2 AD OA MOVZBL 46iR9) WORK _ATTR 
56 50 6E 00 C 4$: movcS #0, (SP), WORK_ATTR, CHARS_TO_MOVE, @INDEX- 
04 BE4A A CAfTR BUF) 
4 AE p TSTL CHAR. BUF 
OE A BEQL $ 
6E 04 AE 14 =A A ADDL 3 CHAR_BUF, INDEX, (SP) 
56 16 AC of ve 00 2C 000A #0, TSP), CHAR_SET, CHARS_TO_MOVE, a@0(SP) 
08 B BF Ao B 
6 A 08 BE B 


2 Page iy 


NNN FS DOOCOOCOOOCOOOCOCCOCCOOCOCOCOOCOOCOOCOOCOCOOCOOOOOOOOOOOO i < 


SMGSSPUT_TEXT_T Put text to display buffer an Jan-1985 AX-11 Bliss-3 
pngts SMGSSPUT_TEXT.TO_BUFFER = Put text to buffer A Pa A oP pt Page 18 


1 B9 BLEQU : 
08 BE 06 03 B B ROVUY Biro) a8 (SP) ; 0578 
Ns 9 ¢ 68: Ist K_OVERFLOW : 0580 
023A 3 ¢ q$: BRW 41$ : 
10 ae cB $: Ist W_BYTES_REMAINING + 0586 
2 A 000CD MOVZBL @ADDR_DIFF, R + 0594 
09 i 00000086" 85 F 00001 CASEB CHAR, T TABLEERES, 1, #9 : 
006¢ 0061 0055 1C DA 9S: WORD $-95.- ; 
0186 0118 DODA DA 0 £2 12$-9$.- : 

11 1£0 OEA 1 $-95.- F 
1$-9$.- : 
1$-9$,- : 
3$-9$,- : 
1$-9$,- 3 
88-98 ,- : 

40$-9$ ’ 

50 000000006 8F po QO0E MOVE #SMG$_FATERRLIB, RO > 0825 

49 08 aC 06 1 000F6 10$: BBC ATTR_CODE, 14$ + 0612 

5 06 A9 3c 000FB MOVZWL Ate REMAINING_COLS + 0614 

50 A9 § FF MOVZWL ty 35. : 

53 50 ¢ 03 SUBL2 RO REMAINING_COLS : 

50 28 «AD ¢ MOVZWL 40(R9), RO F 

50 p A DECL RO F 
1 06 Ad 3C¢ MOVZWL 6(R9), R1 : 
0 51 C4 0011 MULL2  R1, RO F 
2 2A AD 9E 0011 MOV 42(R9), R2 ; 
51 62 3¢ 0011 MOVZWL (R2), R1 F 
51 FF AIG i 1A MOVAB =-1(R1)CROJ, INDEX ; 
3 D 1F TSTL § REMAINING_C ; 
14 1 BGTR 11$ : 
o16¢ 31 3 BRwW 34$ ; 
53 10 aC 04 O EF 6 118 EXTZV #0, #4, TEXT_ADDR, R3 : 
00BA 31 ¢ BRW é § : 
38 AD OF F 12% PUSHAB 56(R9) 0627 
000000006 00 1 £8 3 CALLS #1, SMGSRING_BELL ; 
01 nan be 138: fre a #1 ? 0640 
71 it F BEQL ©: 208 ; 
2a AD 8 141 DECW  42(R9) > 0642 
6C 11 00144 148 BRB é $ F 0594 
53 » & 9 00146 15 MOVAB (RO), R3 : 0678 
18 2rd 0 t 014A BBS #2, 47(R9), 16$ ; 9 
50 3¢ d014F MOVZUL (RS), RO > 0671 
C6 ¢ DIVL2 #8, R ; 
51 7 ASHL #3. RO, RI : 
63 Al B ADDW3 #9. RI. (R3) : 
06 Ad 6 al F cmPw SCR), 6(R9) + 0672 
4p 8 BLEQU 08 : 
4 BRB $ > 0674 
5 06 Ad 3 16$: MOVZWL 6R9) REMAINING_COLS : 0677 
3 A ¢ 68 MOVZWL OR95 RO : 
50 ¢ F SUBL2 RO, REMAINING_COLS : 


0209 00 09 090069 ~1~1 1-1-1 1 
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SPGSSPUT_TEXTT Put text to G\ splay buffer 
1-01 SMGSSPUT_TEXT_TO_BUFFER = Put text to buffer -Oct-1 SMGRTL .BUGSRC JSMGPUTTEX.832;1 


50 28 «#A9 3C 0017 MOVZWL 40(R9), RO ; 
5 17 DECL R ; 
1 06 A ¢ 17 MOVZWL 6(R9), RI : 
0 5 7c MULL? 1, RO : \ 
1 6 C 0017F MOV2WL (RS), R1 : ‘ 
1 FF AI E 1 Q MOVAB  =1(R1)CROJ, INDEX ; j 
Be NESS gathAygtinlnstus 7 | 
18 AE D0 001 MOVL BYTES_REMAINING, WORK_OVERF LOW : ‘ 
15 11 OO18F BRB RS ; ‘ 
50 90 ef 20 191 178:  MOVB #112, SHIFT_NIBBLE ; A 
6148 0 5 198 MOVB SHIFT _NIBBLE; (INDEX)CTEXT_BUFJ : ‘ 
5 08 AC 9A 001 MOVZBL ATTR_CODE, WORK_ATTR : N 
50 01 06 gf 4} 19D INSV #1, 36, #1, WORR_ATTR : N 
614A a 20 142 om ROVE WORK AFTR, CINDER) CATTR_BUF J : \ 
06 Ad : B1 Brag CMPW RB 6(R9) : | 
A if O1AC BNEQ 25$ 3 4 
63 06 Ad B OIAE 19$:  MOVW  6(R9), (R3) : E 
7D 11 001B2 20$: BRB 27$ : 059 
3E 2F A E1 001B4 21$: C ag. 47(R9), 24$ > 069 
54 0 00189 OVL R2. CHA : 071 
53 06 AD 3C O18¢ MOVZWL 6(R9), REMAINING_COLS : 071 
30 28 AD ¢ O1C MOVZWL 4O0(R9S, R : 
5 50 ¢ 01¢4 SUBL2 RO, REMAINING_COLS : 
50 28 A9 ¢ 1c? MOV ZuL 4 (R9), RO 
51 06 Ag HH 01D MOVZWL 6(R9), RI : 
50 51 04 O0101 MULL2 R1, RO F 
36 ” 3 xe 80108 MOVZUL 42{n9), R2 : 
51 FF and 00108 MOV -1(R1)CROJ, INDEX : 
33 92 Sores {SIL RERAINING_CoLs 
53 54 04 00 ai OiE4 EXTZV. #0, #4, CHAR, R3 : 
53 53 04 78 OO1E9 22$:  ASHL i ; 
50 53 HY OiED nove R3, SHIFT_NIBBLE 3 
3C 2F AD 05 50 OiFe 238: BBS #2, 47(R9), 28 : 07 
50 28 AS BC O01? 248: MovZUL 4 (RO), RO ; 07 
50 4A Ad 10 00 FD Bit CMPZV pi #16, 74(R9), RO : 
28 AD AS eftao) ; 0735 
6 5$: BRB 328 3 
ot DD A te PUSHL # : 0737 
1 0D C PUSHL #1 : 
7 Ad 3C MOVZWL g(R9) -(SP) > 0742 
5 4A Ad 3C 0021 MOVZWL 74(R9S, RO > 0741 
ya Bien amRAE ggg: : 
0 AO OF 1D PUSHAB 1(RO) 3; 07 
7E 4 ad 3¢ 0 MOVZWL 4(R9), =(SP) : 07 
7E 48 Ag 5¢ 4 MOV ZL 1acRd, -(SP) u 
7 Ff A CALLS #7, SMGS$SCROLL_AREA ; 
aenenes 20 if if 0231 27$: BRB 32§ 3 


a PUT_TEXT_T ey text to display buffer b-Jan-1985 5 7 AX-11 Bliss-32 V4.0-742 P 
1-01 SMGSSPUT_TEXT. TO-BUFFER © Put text to buffer ws a My Cee th Pre aoe 90 
3 Ad 3¢ 28$:  MOVZWL 6(R9), REMAINING. COLS 3 0747 
: $8 A9 x ; MOVZWL 40(R9S, R . : . 
50 ¢ B SUBL2 RO, REMAINING COLS : 
0 28 a9 : i MOV UL 4 (r9), RO : 
51 06 29 Re 4 MOV IHL 6(R9), RI : 
39 51 C4 00248 MULL2. R1, RO : 
5 2A «=AD «SE 00248 MOV 42(R9), R2 : 
51 62 3C O0d4F MOVZWL (R2), 1 : 
51 FF A14 26 MOVAB Rent ER ROJ, INDEX : 
D5 0025 TSTL  REMAINING_COLS : 
BB 0 39 29$ BLEO 348 ; 
50 F 9 B MCOMB = #63, SHIFT_NIBBLE : 
B 11 00 5 308 BRB 36$ ; 
52 2a AD 9 66 i$ MOVAB 42(R9), R2 > 076 
05 2F AD 2 € BBS #2, 47(R9), 33$ > 076 
62 ; 6 69 MOVW = #1. (R2) + 0762 
D 11 0026C ; $: BRB 408 : 
53 06 A9 3 $f $:  MOVZWL 6(R9), REMAINING _COLS + 0764 
50 Ag ¢ 0 MOVZ2WL 40(R9S, RO : 
53 50 ¢ 0276 SUBL2 RO. REMAINING_COLS ; 
50 28 «AD ; 0279 MOVZWL 40(R9), RO 3 
50 p 027D ECL RO ; 
51 06 Ad 3C O027F MOVZWL 6(R9), R1 ; 
50 51 g 0283 MULL2 R11, RO : 
51 62 C 00 86 MOVZWL (R2), RI : 
51 FF AIG H 9 MOVAB. -1(R1)CROJ, INDEX F 
53 D5 00 3 TSTL REMAINING _COLS : 
06 14 00 BGTR 35$ : 
18 AE 37 06 00 92 34$: MOVL BYTES. REMAINING, WORK_OVERFLOW : 
50 30 3 0 38 358: MNEGB 48 SHIFT_NIBBLE ; 
6148 0 906 00298 36$: move HIFT NIBBCE, CThpe wo Crext BUF) : 
50 08 AC 94 0029F MOVZBL SttR R_CODE, WORK TTR ; 
50 01 06 01 FO 02A3 INSV Gf, WORR_A : 
614A 50 90 002a8 MOVB WORK ATR, CINDER) CATTR_BUF. : 
62 B6 OOCAC 37$:  INCW  (R2) : 
06 a9 6 81 0 AE CMP (R2), 6(R9) ; 
62 06 Ad 06 0284 MOVW 6(R9), (R2) ; 
31 11 00288 BRB 4 $ > 0594 
08 34 Ad 05 EO O2BA 38$: BBS 52(R 9$ : 0784 
50 000000006 8 BO 0 BF HOVL ahs cTRténEse. RO : 0786 
1C ar £§ 39$: | PUSHAB LEN_OF_ SEQUENCE : 0792? 
7E 7D CA MOVO BYTES_REMAINING, -(SP) : 0793 
9 DD 002C¢D PUSHL : 0792 
000000006 90 4 iS CF CALLS a SAGs$s M_TERM oa 
50 3$ 1¢ Ar g 3 SUBL3 EN, OF ~SEQUENCE . aa BNE _REMAINING, RO F Seo8 
37 01 A f D ROVAB “BYTES ; 
50 8 wk 3 £ ADDL Nt of see UENCE IN. POINTER, RO : 0804 
58 FFA é MOVAB INTER : 
D €B 40$: —sXINCL POIN HR : 8 
p ED DECL ayTES. REMAINING ; 839 
FD 1 OOOEF BRW ; ; 
06 Ad 2A «AD «Bl OO2F2 418: CMPW 42(R9), 6(R9) : 838 


Put text to displa 


SMGSSPUT_TEXT_T 
1-013 SMGSS$PUT_TEY _T0_B 


3:37 
8:20 


FER = Put text to buffer 


1 
8 
9 
1 
Dd 
1 
Dd 
Dd 
0 


Soooooo[0ceeo 
oooooo tes 
me SANSo on 

= 

~M 

we 


Cooooooocooo 


3; Routine Size: 


428 

#2, 52(R9) 
(AP), #6 
24 (AP) 


WORK_OVERFLOW, @OVERFLOW 
#1, RO 


VAX-11 Bliss-32 V4.0-742 
CSMGRTL ..BUGSRC JSMGPUTTEX.832;1 


compitat 
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13 MGS$$ Put text to buffer 2-0c t-1984 8:20 SMGRTL .BUGSRC NebuTseg. 832;1 
776 0849 1 END ! End of module SMGS$$PUT_TEXT_TO_BUFFER 
777 0850 1 a 
778 0851 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
_SMGSDATA $60 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, Sg htt} 
~SMGS$CODE 84 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
Soennae Symbols ------ oo Pages Processing 
File Total Loaded Percent Mapped Time 
_$255$D1)A18: SYSLIBISTARLET .1325 1} 9776 5 0 581 00:01.1 
-8255$UUA18.(SMGRTL.OBJ sJener ie cass) 36 0 0 Sa 
$255$DUA18: CSMGRTL.OBJJSMGLIB.L32;1 469 19 4 3 0:00.4 
_ COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE) /NOTRACE/LIS=L1S$:SMGPUTTEX/0BJ=OBJ$ : SMGPUTTEX MSRC$: SMGPUT TEX/UPDATE=(BUG$: SMGPUTTEX 
Size: 784 code + 260 data bytes 
un Time: 226, 
Elapsed Time: 728.9 
Lines/CPU Min: 11 
; Lonones/CAU-Mig: 1791 


Used: 354 pages 


ation Complete 
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